While the OCCURS keyword still works, it is slower than its more modern replacement: DIM, which should be used
instead.
Noncompliant code example
D cussls ds Occurs(200)
D CustNo 7p 0
D MonthlySls 11P 2
Compliant solution
D cussls ds dim(200)
D CustNo 7p 0
D MonthlySls 11P 2
